Kojima Shindo Test Example cp PATH AMPL short = 0; ]]> param xinit : 1 2 3 4 5 6 7 8 := 1 0 1 100 1 1 0 0 1.25 2 0 1 100 0 0 1 1 0 3 0 1 100 1 0 1 0 0 4 0 1 100 0 0 0 1 0.5 ; for {point in initpoint} { printf "Initial point %d\n", point; let{i in Rn} x[i] := xinit[i,point]; solve; display max{i in 1.._nccons} abs(_ccon[i]), min{i in 1.._ncons} _con[i].slack; }